perm filename TEST.LST[AL,HE] blob
sn#736545 filedate 1983-12-31 generic text, type T, neo UTF8
PASCAL/SAIL 1.1 22-APR-80 COMPILATION LIST PRODUCED ON 31-DEC-83 AT 14:24:07 PAGE 1
000140' 1 000140' 000140' 000140' 000140' 000140' C;
PASCAL/SAIL 1.1 22-APR-80 COMPILATION LIST PRODUCED ON 31-DEC-83 AT 14:24:07 PAGE 2
000140' 1 PROGRAM AL;
000140' 2
000140' 3 TYPE
000140' 4
000140' 5 MSGTYPES = (INITARMSCMD,CALIBCMD,KILLARMSCMD,WHERECMD,
000140' 6 ABORTCMD,STOPCMD,MOVEHDRCMD,MOVESEGCMD,
000140' 7 CENTERCMD,OPERATECMD,MOVEDONECMD,SIGNALCMD,
000140' 8 SETCCMD,FORCESIGCMD,FORCEOFFCMD,BIASONCMD,BIASOFFCMD,SETSTIFFCMD,
000140' 9 ZEROWRISTCMD,WRISTCMD,GATHERCMD,GETGATHERCMD,READADCCMD,WRITEDACCMD,
000140' 10 ERRORCMD,FLOATCMD,SETLOADCMD,
000140' 11 ARMMAGICCMD,REALCMD,VECTORCMD,TRANSCMD);
000140' 12
000140' 13 ERRORTYPES = (NOERROR,NOARMSOL,TIMERR,DURERR,TOOLONG,FEATNA,
000140' 14 UNKMESS,SRVDEAD,ADCDEAD,NOZIND,EXJTFC,PASLIM,NOPOWER,BADPOT,DEVBUSY,
000140' 15 BADDEV,TIMOUT,PANICB,NOCART,CBOUND,BADPARM);
000140' 16
000140' 17 EVENT = RECORD I,J,K: INTEGER END;
000140' 18 EVENTP = ↑EVENT;
000140' 19
000140' 20 MESSAGE = RECORD
000140' 21 OK: BOOLEAN;
000140' 22 CMD: MSGTYPES;
000140' 23 DEV: INTEGER;
000140' 24 BITS: INTEGER;
000140' 25 N: INTEGER;
000140' 26 (* DEV, BITS, N, EVT: INTEGER; (* FOR ARM CODE VERSION *)
000140' 27 EVT: EVENTP;
000140' 28 DUR: REAL;
000140' 29 CASE INTEGER OF
000140' 30 1: (V1: REAL;
000140' 31 V2: REAL;
000140' 32 V3: REAL;
000140' 33 T: ARRAY [1..12] OF REAL);
000140' 34 2: (SFAC: REAL;
000140' 35 WOBBLE: REAL;
000140' 36 POS: REAL);
000140' 37 3: (VAL: REAL;
000140' 38 ANGLE: REAL;
000140' 39 MAG: REAL);
000140' 40 4: (ERROR: ERRORTYPES);
000140' 41 END;
000140' 42
000140' 43 VAR ESCFLG, TIMFLG: BOOLEAN;
000142' 44 CURTIME,I: INTEGER;
000144' 45 MSG: MESSAGE;
000172' 46 MSGP: ↑MESSAGE;
000173' 47 C: MSGTYPES; E: ERRORTYPES; R: REAL; EV: EVENTP; B: BOOLEAN;
000200' 48
000200' 49 PROCEDURE FOO;
000001 50 BEGIN
400000' 51 I := 123;
400016' 52 B := MSG.OK;
400020' 53 C := MSG.CMD;
400022' 54 I := MSG.DEV;
400024' 55 I := MSG.BITS;
400026' 56 I := MSG.N;
400030' 57 EV := MSG.EVT;
400032' 58 R := MSG.DUR;
400034' 59 E := MSG.ERROR;
400036' 60 R := MSG.V1;
400040' 61 R := MSG.SFAC;
400042' 62 R := MSG.VAL;
400044' 63 R := MSG.V2;
400046' 64 R := MSG.WOBBLE;
400050' 65 R := MSG.ANGLE;
400052' 66 R := MSG.V3;
400054' 67 R := MSG.POS;
400056' 68 R := MSG.MAG;
400060' 69 R := MSG.T[1];
400062' 70 R := MSG.T[2];
400064' 71 R := MSG.T[11];
400066' 72 R := MSG.T[12];
400070' 73 R := MSG.T[I];
400077' 74
400077' 75 NEW(MSGP);
400102' 76 WITH MSGP↑ DO
400107' 77 BEGIN
400107' 78 DEV := 1;
400111' 79 DUR := 3.14;
400113' 80 T[2] := 10.0;
400115' 81 B := OK;
400117' 82 C := CMD;
400121' 83 I := DEV;
400123' 84 I := BITS;
400125' 85 I := N;
400127' 86 EV := EVT;
400131' 87 R := DUR;
400133' 88 E := ERROR;
400135' 89 R := V1;
400137' 90 R := SFAC;
400141' 91 R := VAL;
400143' 92 R := V2;
400145' 93 R := WOBBLE;
400147' 94 R := ANGLE;
400151' 95 R := V3;
400153' 96 R := POS;
400155' 97 R := MAG;
400157' 98 R := T[1];
400161' 99 R := T[2];
400163' 100 R := T[11];
400165' 101 R := T[12];
400167' 102 R := T[I];
400177' 103 END;
400177' 104 END;
400000' POINT 7, 00000 (01),-1 POINT 7, 00000 (01), 6 POINT 7, 00000 (01),13 POINT 7, 00000 (01),20
400004' POINT 7, 00000 (01),27 POINT 7, 00000 (01),34
400004' 000000 377777 HLLZM 16, 777777 (17)
400010' HRLS 16, 000017 CAIG 15, 000002 (17)
PUSHJ 17, 000000 E HRRI 17, 000002 (17)
400014' HRRZI 02, 000173 MOVEM 02, 000142'
MOVE 02, 000144' MOVEM 02, 000177'
400020' MOVE 02, 000145' MOVEM 02, 000173'
MOVE 02, 000146' MOVEM 02, 000142'
400024' MOVE 02, 000147' MOVEM 02, 000142'
MOVE 02, 000150' MOVEM 02, 000142'
400030' MOVE 02, 000151' MOVEM 02, 000176'
MOVE 02, 000152' MOVEM 02, 000175'
400034' MOVE 02, 000153' MOVEM 02, 000174'
MOVE 02, 000153' MOVEM 02, 000175'
400040' MOVE 02, 000153' MOVEM 02, 000175'
MOVE 02, 000153' MOVEM 02, 000175'
400044' MOVE 02, 000154' MOVEM 02, 000175'
MOVE 02, 000154' MOVEM 02, 000175'
400050' MOVE 02, 000154' MOVEM 02, 000175'
MOVE 02, 000155' MOVEM 02, 000175'
400054' MOVE 02, 000155' MOVEM 02, 000175'
MOVE 02, 000155' MOVEM 02, 000175'
400060' MOVE 02, 000156' MOVEM 02, 000175'
MOVE 02, 000157' MOVEM 02, 000175'
400064' MOVE 02, 000170' MOVEM 02, 000175'
MOVE 02, 000171' MOVEM 02, 000175'
400070' MOVE 02, 000142' SUBI 02, 000001
CAIG 02, 000013 CAIGE 02, 000000
400074' PUSHJ 17, 000000 E MOVE 02, 000156'(02)
MOVEM 02, 000175' HRRZI 02, 000026
400100' PUSHJ 17, 000000 E MOVEM 02, 000172'
MOVE 02, 000172' CAIE 02, 000000
400104' CAIN 02, 377777 PUSHJ 17, 000000 E
HRRZ 14, 000002 HRRZI 02, 000001
400110' MOVEM 02, 000002 (14) MOVE 02, 000000 C
MOVEM 02, 000006 (14) MOVE 02, 000000 C
400114' MOVEM 02, 000013 (14) MOVE 02, 000000 (14)
MOVEM 02, 000177' MOVE 02, 000001 (14)
400120' MOVEM 02, 000173' MOVE 02, 000002 (14)
MOVEM 02, 000142' MOVE 02, 000003 (14)
400124' MOVEM 02, 000142' MOVE 02, 000004 (14)
MOVEM 02, 000142' MOVE 02, 000005 (14)
400130' MOVEM 02, 000176' MOVE 02, 000006 (14)
MOVEM 02, 000175' MOVE 02, 000007 (14)
400134' MOVEM 02, 000174' MOVE 02, 000007 (14)
MOVEM 02, 000175' MOVE 02, 000007 (14)
400140' MOVEM 02, 000175' MOVE 02, 000007 (14)
MOVEM 02, 000175' MOVE 02, 000010 (14)
400144' MOVEM 02, 000175' MOVE 02, 000010 (14)
MOVEM 02, 000175' MOVE 02, 000010 (14)
400150' MOVEM 02, 000175' MOVE 02, 000011 (14)
MOVEM 02, 000175' MOVE 02, 000011 (14)
400154' MOVEM 02, 000175' MOVE 02, 000011 (14)
MOVEM 02, 000175' MOVE 02, 000012 (14)
400160' MOVEM 02, 000175' MOVE 02, 000013 (14)
MOVEM 02, 000175' MOVE 02, 000024 (14)
400164' MOVEM 02, 000175' MOVE 02, 000025 (14)
MOVEM 02, 000175' MOVE 02, 000142'
400170' SUBI 02, 000001 CAIG 02, 000013
CAIGE 02, 000000 PUSHJ 17, 400074' E
400174' ADD 02, 000014 MOVE 02, 000012 (02)
MOVEM 02, 000175' HRRI 17, 000000 (16)
400200' HLRS 16, 777777 (17) POPJ 17, 000000
400200'
[ 3.139999955 ] [ 1.000000000E+01]
LINK-CHAIN(S) : 400111'400202' 400113'400203'
400204' 105
400204' 106 BEGIN
400204' 107 I:=123;
400206' 108 FOO;
400207' 109 END.
400204' HRRZI 02, 000173 MOVEM 02, 000142' PUSHJ 17, 400007' HRRZI 02, 000112'
400210' PUSHJ 17, 000000 E HRRZI 02, 000064' PUSHJ 17, 400210' E HRRZI 02, 000036'
400214' PUSHJ 17, 400212' E HRRZI 02, 000010' PUSHJ 17, 400214' E JRST 00, 000000 E
400220' JFCL 00, 000000 HLRZ 16, 000120 HRLI 16, 000000 (16) HRRI 17, 000001 (16)
400224' HRRZ 01, 400220' CAMG 01, 000044 JRST 00, 400231' CALLI 01, 000011
400230' PUSHJ 17, 000000 E MOVE 15, 000044 CAIG 15, 000040 (17) PUSHJ 17, 400012' E
400234' HRLM 15, 000120 SUBI 15, 000001 HRLI 17, 400000 CALLI 00, 000000
400240' HRRZI 01, 000110 CALLI 01, 000016 HRRZI 04, 000000 C SETZ 03, 000000
400244' SETZ 04, 000000 SETZ 05, 000000 SETZ 06, 000000 HRRZI 02, 000010'
400250' PUSHJ 17, 000000 E HRRZI 02, 000112' SKIPN 00, 000013 (02) PUSHJ 17, 000000 E
400254' HRRZM 16, 000143 SKIPE 00, 000146 XCT 00, 000146 JRST 00, 400204'
400260' [ 'AL '] [ ' ']
000000' 000000 000000 000000 000000 000000 000000 000000 000000
000004' 000000 000000 000000 000000 000000 000000 000000 000000
LINK-CHAIN(S) : 400242'400260'
000110' 000000 000137' 000000 000000
000114' 000000 000000 050140 000123' 076140 000126' 077140 000126'
000120' 056140 000000 057140 000000 070140 000000 000000 000000
000124' 646471 000000 000000 000000 646471 576564 606564 000000
000130' 000000 000000 000000 000000 000000 000000 000000 000000
000134' 000000 000000 000000 000000 777777 000137' 000000 000000
000064' 000000 000111' 000000 000000 000000 000000 050100 000075'
000070' 076100 000100' 077100 000100' 056100 000000 057100 000000
000074' 070100 000000 000000 000000 646471 000000 000000 000000
000100' 646471 000000 000000 000000 000000 000000 000000 000000
000104' 000000 000000 000000 000000 000000 000000 000000 000000
000110' 777777 000111' 000000 000000
000034' 000000 000063' 000000 000000
000040' 000000 000000 050040 000047' 076040 000052' 077040 000052'
000044' 056040 000000 057040 000000 070040 000000 000000 000000
000050' 446353 000000 000000 000000 576564 606564 000000 000000
000054' 000000 000000 000000 000000 000000 000000 000000 000000
000060' 000000 000000 000000 000000 777777 000063' 000000 000000
000010' 000000 000035' 000000 000000 000000 000000 050000 000021'
000014' 076000 000024' 077000 000024' 056000 000000 057000 000000
000020' 070000 000000 000000 000000 446353 000000 000000 000000
000024' 515660 656400 000000 000000 000000 000000 000000 000000
000030' 000000 000000 000000 000000 000000 000000 000000 000000
000034' 777777 000035' 000000 000000
ENTRY-POINT(S) : AL 400220'
ENTRY-SYMBOL(S) : TTYOUT 000112' TTY 000064'
OUTPUT 000036' INPUT 000010'
EXTERN-SYMBOL(S): CORERR 400233' INXERR 400173'
NOCORE 400230' NEW 400100'
END 400217' RESETF 400250'
REWRIT 400253' CLSFIL 400216'
PTRERR 400105' OVERF. 000125
LINK-LIBRARIE(S): PASLIB 000000 000000 SYS
START-ADDRESS : 400220'
HIGHSEG-BREAK : 400262'
LOWSEG-BREAK : 000200'
0 ERROR(S) DETECTED
HIGHSEG: 0K + 178 WORD(S)
LOWSEG : 0K + 128 WORD(S)
RUNTIME: 00:00.370 ELAPSED: 00:00:01.1 2274 CHARS